500
How can I add an extra button to a spin editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.DefaultItemHeight = 20
		With .Columns.Add("Date").Editor
			.EditType = 4
			.AddButton "B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1"
			.ButtonWidth = 20
		End With
		With .Items
			.AddItem 0
			.AddItem 1
		End With
	End With
End Function
</SCRIPT>
</BODY>
499
How can I remove or delete the buttons in the editor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("Edit").Editor
			.EditType = 1
			.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
			.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
			.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
			.RemoveButton "B1"
			.ButtonWidth = 20
		End With
		With .Items
			.AddItem "Text 1"
			.AddItem "Text 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
498
How can I hide the buttons in the editor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.DefaultItemHeight = 24
		With .Columns.Add("Edit").Editor
			.EditType = 1
			.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
			.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
			.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
			.ButtonWidth = 0
		End With
		With .Items
			.AddItem "Text 1"
			.AddItem "Text 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
497
How can I change the width of the buttons in the editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.DefaultItemHeight = 24
		With .Columns.Add("Edit").Editor
			.EditType = 1
			.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
			.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
			.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
			.ButtonWidth = 24
		End With
		With .Items
			.AddItem "Text 1"
			.AddItem "Text 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
496
How can I add extra buttons to an editor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("Edit").Editor
			.EditType = 1
			.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
			.AddButton "B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2"
			.AddButton "B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3"
			.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
		End With
		With .Items
			.AddItem "Text 1"
			.AddItem "Text 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>
495
is there any function to specify the number of rows / items being visible in a drop down list editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
			.DropDownRows = 1
			.PopupAppearance = 1
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
494
How can I change the border for a drop down editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("Date").Editor
			.EditType = 7
			.PopupAppearance = 1
		End With
		.Items.AddItem "Today"
		With .Items
			.CellEditor(.AddItem("Today"),0).EditType = 7
		End With
	End With
End Function
</SCRIPT>
</BODY>
493
How can I remove a predefined item in a drop down editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Color").Editor
		With var_Editor
			.EditType = 17
			.Option(4) = True
			.RemoveItem 255
		End With
		.Items.AddItem 255
		.Items.AddItem 65280
	End With
End Function
</SCRIPT>
</BODY>
492
How can I remove or clear all predefined items in a drop down editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Color").Editor
		With var_Editor
			.EditType = 17
			.ClearItems 
			.AddItem 255,"Red Color"
		End With
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
491
How can I center the predefined items in a drop down editor editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
			.DropDownAlignment = 1
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
490
How can I right align the items in a drop down editor editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
			.DropDownAlignment = 2
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
489
How can I specify the width of the drop down editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.DropDownAutoWidth = 0
			.DropDownMinWidth = 385
			.EditType = 17
		End With
		With .Items
			.AddItem 255
			.AddItem 65280
		End With
	End With
End Function
</SCRIPT>
</BODY>
488
How can hide the drop down button for an editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.DropDownVisible = False
			.EditType = 17
		End With
		With .Items
			.AddItem 255
			.AddItem 65280
		End With
	End With
End Function
</SCRIPT>
</BODY>
487
How can assign a tooltip to a drop down list editor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
			.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item"
			.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item"
			.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item"
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
486
How can I lock, disable make read only an editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.Locked = True
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
485
How can I sort the items in a drop down list editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.EditType = 3
			.AddItem 1,"Second item"
			.AddItem 2,"First item"
			.AddItem 3,"Third item"
			.SortItems True
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
484
How can I expand an item in the tree or a hierarchy of a drop down editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("DropDown")
			.Def(17) = 1
			With .Editor
				.EditType = 3
				.DropDownAutoWidth = 0
				.AddItem 1,"<b>CObject</b> class",1
				.InsertItem 2,"<b>CCmdTarget</b> class",2,1
				.InsertItem 3,"<b>CWnd</b> class",3,2
				.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
				.AddItem 4,"Exceptions",1
				.InsertItem 7,"<b>System</b> Exceptions",2,4
				.AddItem 5,"File Services",2
				.ExpandItem(1) = True
			End With
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
483
How can I display a tree or a hierarchy in a drop down editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("DropDown")
			.Def(17) = 1
			With .Editor
				.EditType = 3
				.DropDownAutoWidth = 0
				.AddItem 1,"<b>CObject</b> class",1
				.InsertItem 2,"<b>CCmdTarget</b> class",2,1
				.InsertItem 3,"<b>CWnd</b> class",3,2
				.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
				.AddItem 4,"Exceptions",1
				.InsertItem 7,"<b>System</b> Exceptions",2,4
				.AddItem 5,"File Services",2
				.ExpandAll 
			End With
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
482
How can I look for items that includes the typed characters in a drop down list editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("DropDown").Editor
			.Option(39) = 1
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
481
How can I keep the selection background color while editor is visible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.SelBackColor = RGB(255,0,0)
		With .Columns.Add("DropDown").Editor
			.Option(45) = True
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
480
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("DropDown").Editor
			.Option(37) = 1
			.EditType = 3
			.AddItem 1,"First item",1
			.AddItem 2,"Second item",3
			.AddItem 3,"Third item",2
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
479
How can I automatically drop down the list editor, when the user starts typing in the editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("DropDown").Editor
			.Option(37) = -1
			.EditType = 3
			.AddItem 1,"First item",1
			.AddItem 2,"Second item",3
			.AddItem 3,"Third item",2
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
478
How can I add a Font editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Font").Editor.EditType = 10
		.Items.AddItem "Tahoma"
	End With
End Function
</SCRIPT>
</BODY>
477
How can I change the visual appearance for the buttons in the calculator editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 21
			.Option(105) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
			.Option(106) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
476
How can I customize the caption of buttons in the calculator editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 21
			.Option(104) = "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
475
How can I customize the caption of buttons in the calculator editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 21
			.Option(104) = "0;1;2;3;4;5;6;7;8;9"
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
474
How can I specify the width and height of the buttons in the calculator editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 21
			.Option(102) = 32
			.Option(103) = 32
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
473
How can I change the "Cannot divide by zero" message that shows in the calculator editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 21
			.Option(101) = "Divizion by zero"
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
472
How can I enable or disable executing operations while the calculator editor is focused and closed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 21
			.Option(100) = False
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
471
How can I add a calculator editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Slider").Editor.EditType = 21
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
470
How can I edit a number between a range or interval

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 20
			.Numeric = -1
			.Option(40) = 0
			.Option(41) = 0
			.Option(43) = 5
			.Option(44) = 15
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
469
How can I hide or show the spin in the slider or track bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 20
			.Option(40) = 0
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
468
How can I add a slider or track bar editor, with a fixed size

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 20
			.Option(41) = 64
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
467
How can I add a slider or track bar editor, so it covers half of the cell

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 20
			.Option(41) = -50
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
466
How can I add a slider or track bar editor, so it covers the full cell

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Slider").Editor
		With var_Editor
			.EditType = 20
			.Option(41) = -100
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
465
How can I add a slider or track bar editor within a range or interval of numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
		With var_Editor
			.EditType = 20
			.Numeric = -1
			.Option(43) = 5
			.Option(44) = 15
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
464
How can I add a slider or track bar editor within a range or interval of float numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
		With var_Editor
			.EditType = 20
			.Numeric = 1
			.Option(43) = 0
			.Option(44) = 1
			.Option(40) = "0.01"
			.Option(42) = "0.01"
		End With
		.Items.AddItem "0.3"
	End With
End Function
</SCRIPT>
</BODY>
463
How can I add a spin editor within a range or interval of float numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
		With var_Editor
			.EditType = 20
			.Numeric = 1
			.Option(41) = 0
			.Option(43) = 0
			.Option(44) = 1
			.Option(40) = "0.01"
		End With
		.Items.AddItem "0.3"
	End With
End Function
</SCRIPT>
</BODY>
462
How can I add a spin editor within a range or interval of numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
		With var_Editor
			.EditType = 20
			.Numeric = -1
			.Option(41) = 0
			.Option(43) = 5
			.Option(44) = 15
		End With
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
461
How can I add a slider or track bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Slider").Editor.EditType = 20
		.Items.AddItem 10
	End With
End Function
</SCRIPT>
</BODY>
460
I have check box column, but the check-boxes looks disabled. What can I do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Check").Editor
		With var_Editor
			.EditType = 19
			.Option(17) = 1
		End With
		With .Items
			.AddItem False
			.AddItem True
			.AddItem False
		End With
	End With
End Function
</SCRIPT>
</BODY>
459
How do I add check box column, so the cell value is changed as I click the cells

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.MarkSearchColumn = False
		With .Columns.Add("C")
			.Width = 18
			.AllowSizing = False
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
		End With
		.Columns.Add "Text"
		With .Items
			.CellValue(.AddItem(False),1) = "Check 1"
			.CellValue(.AddItem(True),1) = "Check 2"
			.CellValue(.AddItem(False),1) = "Check 3"
		End With
	End With
End Function
</SCRIPT>
</BODY>
458
How do I add check box column, so the cell value is changed as I click the cells

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Check").Editor.EditType = 19
		With .Items
			.AddItem False
			.AddItem True
			.AddItem False
		End With
	End With
End Function
</SCRIPT>
</BODY>
457
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 18
			.Option(9) = False
		End With
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
	"e line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
456
How do I add a vertical scroll bar for a memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 18
			.Option(2) = True
		End With
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
	"e line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
455
How do I add a horizontal scroll bar for a memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 18
			.Option(1) = True
		End With
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
	"e line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
454
How can I specify the width or the height for a drop down memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 18
			.Option(7) = 256
			.Option(8) = 64
		End With
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
453
How do I add a drop down memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Edit").Editor.EditType = 18
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
452
How do I add a color list editor with my own or custom colors

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Color").Editor
		With var_Editor
			.EditType = 17
			.Option(4) = True
			.ClearItems 
			.AddItem 255,"Red Color"
			.AddItem 16711680,"Blue Color"
			.AddItem 65280,"Green Color"
		End With
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
451
How do I add a color list editor with my own or custom colors

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Color").Editor
		With var_Editor
			.EditType = 17
			.ClearItems 
			.AddItem 255,"Red Color"
			.AddItem 16711680,"Blue Color"
			.AddItem 65280,"Green Color"
		End With
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
450
How can I show the color's name in a color list editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Color").Editor
		With var_Editor
			.EditType = 17
			.Option(4) = True
		End With
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
449
How do I add a color list editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Color").Editor.EditType = 17
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
448
How can I access my own custom or ActiveX editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.DrawGridLines = -1
		.DefaultItemHeight = 128
		With .Columns.Add("DropDown").Editor
			.EditType = 16
			.UserEditor "MSCAL.Calendar",""
			With .UserEditorObject
				.BackColor = RGB(255,255,255)
				.GridCellEffect = 0
				.ShowTitle = False
				.ShowDateSelectors = False
			End With
		End With
		With .Items
			.AddItem "MSCal.Calendar"
			.AddItem "MSCal.Calendar"
		End With
	End With
End Function
</SCRIPT>
</BODY>
447
How can I add my own custom or ActiveX editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.DrawGridLines = -1
		.DefaultItemHeight = 128
		With .Columns.Add("DropDown").Editor
			.EditType = 16
			.UserEditor "MSCAL.Calendar",""
		End With
		With .Items
			.AddItem "MSCal.Calendar"
			.AddItem "MSCal.Calendar"
		End With
	End With
End Function
</SCRIPT>
</BODY>
446
How can I add a hyperlink editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Shell.Execute").Editor.EditType = 15
		.Items.AddItem "http://www.exontrol.com"
		.Items.AddItem "c:\"
	End With
End Function
</SCRIPT>
</BODY>
445
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("DropDown").Editor
			.EditType = 14
			.AddItem 1,"The first item",1
			.AddItem 2,"The second item",3
			.AddItem 3,"The third item",2
		End With
		With .Items
			.AddItem "The first item"
			.AddItem "The third item"
		End With
	End With
End Function
</SCRIPT>
</BODY>
444
How can I show or hide the rectangle arround progress bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.SelForeColor = RGB(0,0,0)
		.SelBackColor = RGB(128,255,255)
		Set var_Editor = .Columns.Add("Progress").Editor
		With var_Editor
			.EditType = 13
			.Option(13) = False
		End With
		.Items.AddItem 33
	End With
End Function
</SCRIPT>
</BODY>
443
How can I hide the caption / percent in the progress bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.SelForeColor = RGB(0,0,0)
		.SelBackColor = RGB(128,255,255)
		Set var_Editor = .Columns.Add("Progress").Editor
		With var_Editor
			.EditType = 13
			.Option(12) = -1
		End With
		.Items.AddItem 33
	End With
End Function
</SCRIPT>
</BODY>
442
How can I align the caption in the center of the progress bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.SelForeColor = RGB(0,0,0)
		.SelBackColor = RGB(128,255,255)
		Set var_Editor = .Columns.Add("Progress").Editor
		With var_Editor
			.EditType = 13
			.Option(12) = 1
		End With
		.Items.AddItem 33
	End With
End Function
</SCRIPT>
</BODY>
441
How can I align the caption to the right in the progress bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.SelForeColor = RGB(0,0,0)
		.SelBackColor = RGB(128,255,255)
		Set var_Editor = .Columns.Add("Progress").Editor
		With var_Editor
			.EditType = 13
			.Option(12) = 2
		End With
		.Items.AddItem 33
	End With
End Function
</SCRIPT>
</BODY>
440
How can I change the background color for a progress bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.SelForeColor = RGB(0,0,0)
		.SelBackColor = RGB(128,255,255)
		Set var_Editor = .Columns.Add("Progress").Editor
		With var_Editor
			.EditType = 13
			.Option(11) = 255
		End With
		.Items.AddItem 33
	End With
End Function
</SCRIPT>
</BODY>
439
How can I add a progress bar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.SelForeColor = RGB(0,0,0)
		.SelBackColor = RGB(128,255,255)
		.Columns.Add("Progress").Editor.EditType = 13
		.Items.AddItem 33
	End With
End Function
</SCRIPT>
</BODY>
438
How can I add a button editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Button").Editor.EditType = 12
		.Items.AddItem "Just a text"
	End With
End Function
</SCRIPT>
</BODY>
437
How can I show or hide the type of the OLE Object for Photo or a Picture editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.ColumnAutoResize = False
		With .Columns.Add("Photo")
			.Width = 74
			With .Editor
				.EditType = 11
				.Option(52) = False
			End With
		End With
		With .Items
			h = .AddItem()
			.CellValue(h,0) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
			.ItemHeight(h) = 64
		End With
	End With
End Function
</SCRIPT>
</BODY>
436
How can I add a Photo or a Picture editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Photo").Editor.EditType = 11
		With .Items
			h = .AddItem()
			.CellValue(h,0) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
			.ItemHeight(h) = 64
		End With
	End With
End Function
</SCRIPT>
</BODY>
435
How can I hide or show the "System" page in the color editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Color").Editor
		With var_Editor
			.EditType = 9
			.Option(6) = False
		End With
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
434
How can I hide or show the "Palette" page in the color editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Color").Editor
		With var_Editor
			.EditType = 9
			.Option(5) = False
		End With
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
433
How do I add a color editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Color").Editor.EditType = 9
		.Items.AddItem 255
	End With
End Function
</SCRIPT>
</BODY>
432
How do I change the masking character

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Mask").Editor
		With var_Editor
			.EditType = 8
			.Mask = "###"
			.MaskChar = 48
		End With
		.Items.AddItem ""
	End With
End Function
</SCRIPT>
</BODY>
431
How do I mask an IP

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("IP").Editor
		With var_Editor
			.EditType = 8
			.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
		End With
		.Items.AddItem "1.2.3.4"
	End With
End Function
</SCRIPT>
</BODY>
430
How do I add a mask editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Mask").Editor
		With var_Editor
			.EditType = 8
			.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
		End With
		.Items.AddItem "1.2.3.4"
	End With
End Function
</SCRIPT>
</BODY>
429
How to show or hide the week numbers header in a drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(47) = True
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
428
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(35) = False
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
427
How do highlight the "Today" date is the drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(34) = True
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
426
How do I show or hide the "Today" button is the drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(33) = False
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
425
How to specify the first day of the week in the drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(32) = 1
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
424
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(31) = "Du Lu Ma Mi Jo Vi Si"
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
423
How can I change the name of the months in the drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(30) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
422
Can I change the "Today" caption being displayed in the drop down date picker calendar editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(29) = "Azi"
		End With
		.Items.AddItem "Today"
	End With
End Function
</SCRIPT>
</BODY>
421
How can allow empty date to drop down date picker control or a calendar control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Date").Editor
		With var_Editor
			.EditType = 7
			.Option(14) = True
		End With
		With .Items
			.AddItem "Today"
			.AddItem ""
			.AddItem "Today"
		End With
	End With
End Function
</SCRIPT>
</BODY>
420
How can I a drop down date picker control or a calendar control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Date").Editor.EditType = 7
		With .Items
			.AddItem "Today"
		End With
	End With
End Function
</SCRIPT>
</BODY>
419
How can I have an OR combination of my bit values, something like a check-box list editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		With .Columns.Add("CkeckList")
			.Def(17) = 1
			With .Editor
				.EditType = 6
				.AddItem 1,"Bit <b>1</b>"
				.AddItem 2,"Bit <b>2</b>"
				.AddItem 4,"Bit <b>3</b>"
				.AddItem 8,"Bit <b>4</b>"
				.AddItem 16,"Bit <b>5</b>"
				.AddItem 32,"Bit <b>6</b>"
				.AddItem 64,"Bit <b>7</b>"
				.AddItem 128,"Bit <b>8</b>"
			End With
		End With
		With .Items
			.AddItem 112
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
418
How do I stop resizing the memo or a multiple lines edit control, while the user types

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 5
			.Option(3) = False
			.Option(1) = True
			.Option(2) = True
		End With
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
	"e line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
417
How do I add a horizontal scroll bar for a memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 5
			.Option(1) = True
		End With
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
	"e line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
416
How do I add a vertical scroll bar for a memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 5
			.Option(2) = True
		End With
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
	"e line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
415
How do I add a memo or a multiple lines edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Edit").Editor.EditType = 5
		With .Items
			.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>
414
How to specify the proposed change when the user clicks a spin control.

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 4
			.Numeric = -1
			.Option(40) = 10
		End With
		With .Items
			.AddItem 0
			.AddItem 10
			.AddItem 20
		End With
	End With
End Function
</SCRIPT>
</BODY>
413
How do I add a spin editor that allows only integer values

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 4
			.Numeric = -1
		End With
		With .Items
			.AddItem 0
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
412
How do I add a spin editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Columns.Add("Edit").Editor.EditType = 4
		With .Items
			.AddItem 0
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
411
How do I specify in a drop down list editor, that I do not want to have predefined icon

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("DropDown").Editor
			.EditType = 3
			.AddItem 1,"The first item",1
			.AddItem 2,"The second item",3
			.AddItem 3,"The third item",2
			.Option(28) = False
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
410
How do I add a drop down editor, that allows only predefined values

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("DropDown").Editor
			.EditType = 3
			.AddItem 1,"The first item",1
			.AddItem 2,"The second item",3
			.AddItem 3,"The third item",2
		End With
		With .Items
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
409
How to allow the editor to work on insert or overtype mode

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Option(200) = True
			.Option(201) = True
		End With
		With .Items
			.AddItem "000"
			.AddItem "111"
			.AddItem "222"
		End With
	End With
End Function
</SCRIPT>
</BODY>
408
How to set foreground color for a locked, or read only edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Locked = True
			.Option(51) = 8421504
		End With
		With .Items
			.AddItem "000"
			.AddItem "111"
			.AddItem "222"
		End With
	End With
End Function
</SCRIPT>
</BODY>
407
How to set background color for a locked, or read only edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Locked = True
			.Option(50) = 8421504
		End With
		With .Items
			.AddItem "000"
			.AddItem "111"
			.AddItem "222"
		End With
	End With
End Function
</SCRIPT>
</BODY>
406
How to set the number of characters selected, when an EditType editor is opened

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Option(49) = 1
		End With
		With .Items
			.AddItem "000"
			.AddItem "111"
			.AddItem "222"
		End With
	End With
End Function
</SCRIPT>
</BODY>
405
How to set the starting point of text selected, when an EditType editor is opened

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Option(48) = 1
			.Option(49) = 1
		End With
		With .Items
			.AddItem "000"
			.AddItem "111"
			.AddItem "222"
		End With
	End With
End Function
</SCRIPT>
</BODY>
404
How to specifiy the symbol that indicates the decimal values while editing a floating point number

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Float")
			.FormatColumn = "len(value) ? (round(value) = value ? value : value format `|,|0`) : ``"
			With .Editor
				.EditType = 1
				.Numeric = 2
				.Option(46) = 44
			End With
		End With
		With .Items
			.AddItem 0.12
			.AddItem 1
			.AddItem 2.45
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
403
How can I edit a float number

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Numeric = 1
		End With
		With .Items
			.AddItem 0
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
402
How can I edit a number

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Numeric = -1
		End With
		With .Items
			.AddItem 0
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>
401
How do I limit the length of the text that the user may enter into an edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		Set var_Editor = .Columns.Add("Edit").Editor
		With var_Editor
			.EditType = 1
			.Option(36) = 1
		End With
		With .Items
			.AddItem 0
			.AddItem 1
			.AddItem 2
		End With
	End With
End Function
</SCRIPT>
</BODY>